home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / coding / dsp / c30fft.exe / APPENDIX.A5 < prev    next >
Text File  |  1989-08-18  |  2KB  |  71 lines
  1. ;**************************************************************
  2. ;  
  3. ;                 appendix.a5
  4. ;  
  5. ;                 Raimund Meyer & Karl Schwarz
  6. ;  
  7. ;                 08-18-89
  8. ;  
  9. ;           (C) Texas Instruments Inc., 1992 
  10. ;  
  11. ;           Refer to the file 'license.txt' included with this 
  12. ;           this package for usage and license information. 
  13. ;  
  14. ;**************************************************************
  15. ***************************************************************************
  16. *                                          *
  17. *    TWID1KBR.ASM                                  *
  18. *    TABLE WITH TWIDDLE FACTORS FOR A FFT                       *
  19. *    UP TO A LENGTH OF 1024 COMPLEX POINTS.                      *
  20. *    FILE TO BE LINKED WITH THE SOURCE CODE : R2DIT.ASM OR R2DITB.ASM  *
  21. *                                          *
  22. *    WRITTEN BY : RAIMUND MEYER , KARL SCHWARZ    14.07.89          *
  23. *             LEHRSTUHL FUER NACHRICHTENTECHNIK                  *
  24. *             UNIVERSITAET ERLANGEN-NUERNBERG                  *
  25. *                                          *
  26. *    LENGTH OF TWIDDLE FACTOR TABLE : 512 REAL VALUES (=1024 FFT)      *
  27. *                                          *
  28. ***************************************************************************
  29.  
  30.     .global sine
  31.     .global n
  32.     .global nhalb
  33.     .global nviert
  34.     .global nachtel
  35.     .global m
  36.  
  37. n    .set     1024        ; FFT-LENGTH n
  38. nhalb    .set     512        ; n/2
  39. nviert    .set    256        ; n/4
  40. nachtel .set    128        ; n/8
  41. m    .set     10        ; NUMBER OF STAGES = ld(n) 
  42.  
  43. * another example FFT-LENGTH n=32:
  44. * only the first 16 values of the table are needed 
  45.  
  46. *n    .set     32
  47. *nhalb    .set     16
  48. *nviert    .set    8
  49. *nachtel    .set    4
  50. *m    .set     5
  51.  
  52.     .data
  53.  
  54. sine
  55.     .float      1.00000000000000e+000
  56.     .float      0.00000000000000e+000
  57.     .float      7.07106781186548e-001
  58.     .float      7.07106781186548e-001
  59.     .float      9.23879532511287e-001
  60.     .float      3.82683432365090e-001
  61.     .float      3.82683432365090e-001
  62.     .float      9.23879532511287e-001
  63.     .float      9.80785280403230e-001
  64.               :
  65.               :
  66.               :
  67.     .float      7.11432195745216e-001
  68.     .float      7.02754744457225e-001
  69.     .float      6.13588464915452e-003
  70.     .float      9.99981175282601e-001
  71.